home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls074c.sunsparc.Z / tls074c.sunsparc / lib / vtcl / tests / help.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.7 KB  |  78 lines
  1. # CVS $Id: help.tcl,v 1.3 1995/02/03 16:54:49 zibi Exp $
  2. #
  3. # A test of help connections
  4. #
  5.  
  6. source tools.tcl
  7.  
  8. set menuList {
  9.     {pd File F}
  10.         {bt New   N "Ctrl<Key>N" "Ctrl+N" }
  11.         {bt Open  O "Ctrl<Key>O" "Ctrl+O" }
  12.         {bt Close }
  13.     {sp}
  14.         {bt "Print SetUp"    }
  15.         {bt "Print" "Ctrl<Key>P" "Ctrl+P" }
  16.     {sp}
  17.         {bt Exit E "Ctrl<Key>E" "Ctrl+E" QuitCB}
  18.  
  19.     {pd Edit E}
  20.         {bt Cut   C "Ctrl<Key>X" "Ctrl+X" }
  21.         {bt Copy  o "Ctrl<Key>C" "Ctrl+C" }
  22.         {bt Paste P "Ctrl<key>V" "Ctrl+V" }
  23.     {sp}
  24.     {bt Delete D "<key>Delete" Delete }
  25.     {pd View  V}
  26.         {bt Some  S "Ctrl<Key>S" "Ctrl+S" }
  27.         {bt Parts P ""       }
  28.  
  29.     {pd AnimalBook  T}
  30.         {bt "Dog"    "" "" ""  "sendTopicCB Animal"  }
  31.         {bt "Cat"    "" "" ""  "sendTopicCB Animal"  }
  32.         {bt "Bird"   "" "" ""  "sendTopicCB Animal"  }
  33.  
  34.     {pd PlantBook  T}
  35.         {bt "Weed"    "" "" ""  "sendTopicCB Plant"  }
  36.         {bt "Tree"    "" "" ""  "sendTopicCB Plant"  }
  37.         {bt "Flower"  "" "" ""  "sendTopicCB Plant" }
  38. }
  39.  
  40. proc genericMenuCB {cbs} {
  41. }
  42.  
  43. proc customHelpCB {cbs} {
  44.     echo $cbs
  45. }
  46.  
  47. proc sendTopicCB {book cbs} {
  48.      set target [keylget cbs widget]
  49.      
  50.      set label [VtGetValues $target -label]
  51.  
  52.      VtDisplayHelp $target -topic $label -book $book
  53. }
  54.  
  55. set app [VtOpen HelpMe HelpBook]
  56.  
  57. VtSetAppValues $app -versionString "Dumb Example   \n\n  1.2.3.4"
  58.  
  59. set dlog [VtFormDialog $app.HelpForm]
  60.  
  61. set menub [VtMenuBar $dlog.menub -helpMenuItemList {INDEX ON_VERSION}]
  62.  
  63.  
  64. VxMenu $dlog $menub $menuList genericMenuCB
  65.  
  66.  
  67. set rc [VtRowColumn $dlog.rc -horizontal \
  68.     -leftSide FORM -topSide $menub -rightSide FORM]
  69.  
  70. foreach but {dog cat plant olaf bruti pima} {
  71.     VtPushButton $rc.$but -helpCallback customHelpCB
  72. }
  73.  
  74. VtShowDialog $dlog
  75.  
  76. VtMainLoop
  77.  
  78.